home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / list 4 (error) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  654b  |  19 lines
  1. 10 REM ********************************
  2. 11 REM *         E  R  R  O  R        *
  3. 12 REM ********************************
  4. 13 REM * ERGAENZUNG ZU SIMON'S BASIC  *
  5. 14 REM * FORMAT: d~OR                *
  6. 15 REM * GIBT drSTATUS AUS          *
  7. 16 REM * > BEISPIEL: d~OR            *
  8. 17 REM *   ERGEBNIS: 00, OK,00,00     *
  9. 18 REM ********************************
  10. 19 K=0:PRINT" E R R O R [146]  ?CHECKSUM ";
  11. 20 FORI=$BFBB TO $BFE2:READ J:POKE I,J:K=K+J:NEXT
  12. 21 DATA32,115,,201,176,240,3,76,138,136
  13. 22 DATA169,8,133,186,32,180,255,169,111
  14. 23 DATA133,185,32,150,255,32,165,255,32
  15. 24 DATA210,255,201,13,208,246,32,171
  16. 25 DATA255,76,116,145
  17. 26 POKE$87BE,186:POKE$87BF,191
  18. 27 IFK=5527THENPRINT"OK":dG:PRINT"ERROR"
  19.